5 GOSUB60100:CLR
20 POKE53280,6:POKE53281,0:RESTORE
22 PRINT"[147][158]              [196]ISK [204]OCKER"
24 PRINT"            BY [210]UTH [193]. [200]ICKS"
30 FOR I=0 TO 4:READ F$(I):NEXT:CT=0
40 DATA DEL,SEQ,PRG,USR,REL
50 FOR I=0 TO 4:READ L$(I):NEXT
60 DATA DEL<,SEQ<,PRG<,USR<,REL<
70 T=18:S=1
80 PRINT"         [196] [154]- [204]OCK A WHOLE DISK"
82 PRINT"         [198] [154]- [204]OCK ONE FILE"
84 PRINT"         [209] [154]- [209]UIT THIS PROGRAM"
88 PRINT"         [208]RESS [196][154], [198][154], OR [209][154]."
90 GETQ$:IFQ$=""THEN90
92 IFQ$="D"ORQ$="[196]"THEN100
94 IFQ$="F"ORQ$="[198]"THEN100
96 IFQ$="Q"ORQ$="[209]"THENMM=.:GOSUB60000:GOTO90
99 GOTO90
100 MM=1:PRINT"[201]NSERT DISK TO BE LOCKED IN DRIVE AND"
105 PRINT"PRESS [211][208][193][195][197]."
106 GETA$:IFA$<>" "THEN106
120 PRINT"[147]":PRINT TAB(4)" # ";TAB(8)" [196]IRECTORY [206]AME ";TAB(27)" [198]ILE [146]"
125 PRINT
130 OPEN 15,8,15
140 PRINT#15,"I0"
150 INPUT#15,EN,EM$,ET,ES
160 IF EN<>0 THEN PRINT"      DOS ERROR":GOTO 1050
170 OPEN 7,8,7,"#0"
180 PRINT#15,"U1"7;0;T;S
190 INPUT#15,EN,EM$,ET,ES
200 IF EN<>0 THEN PRINT"      DOS ERROR":GOTO 1000
210 PRINT#15,"M-R";CHR$(0);CHR$(3);CHR$(255)
220 BT=T:BS=S
230 PRINT#15,"B-P";7;0
240 GET#7,T$
250 IF T$="" THEN T$=CHR$(0)
260 GET#7,S$
270 IF S$="" THEN S$=CHR$(0)
280 T=ASC(T$):S=ASC(S$)
300 FOR I=0 TO 7
310 PRINT#15,"B-P";7;2+B
320 GET#7,B$
330 FOR J=0 TO 4
340 IF B$=CHR$(128+J) THEN B$=F$(J):J=4
350 IF B$=CHR$(192+J) THEN B$=L$(J):J=4
360 NEXT J
500 PRINT#15,"B-P";7;5+B
510 FOR K=0 TO 15
520 GET#7,C$
530 IF C$="" THEN C$=CHR$(0)
540 C=ASC(C$)
550 IF C$=CHR$(0) THEN E=E+1
560 IF C>31 AND C<91 THEN CC$=CC$+C$
570 IF E=16 AND T=0 THEN K=15:GOTO 990
580 NEXT K
590 CT=CT+1
800 PRINT TAB(4)CT;TAB(8)CC$;TAB(28)B$:CC$=CHR$(0):E=0:D$=B$:B$=CHR$(0)
810 IF Q$="F" THEN GOSUB 2000
820 IF Q$="D" THEN GOSUB 2030
830 B=B+32
840 NEXT I
850 IF T<>0 THEN B=0:GOTO 180
990 IF Q$="D" THEN Q$=CHR$(0):B=0:T=BT:S=BS:GOTO 180
1000 CLOSE 7
1010 INPUT#15,EN,EM$,ET,ES
1050 CLOSE 15
1060 IF EN<>0 THEN PRINT:PRINT:PRINT EN,EM$,ET,ES
1070 PRINT"[158]    [197]ND [207]F [196]IRECTORY ... [208]RESS [211][208][193][195][197]":POKE198,.
1080 GETA$:IFA$<>" "THEN1080
1090 GOTO20
2000 PRINT TAB(5)"[154][195]HANGE THIS FILE? ([217][154]/[206][154]/[209][154])":POKE198,.
2005 GETA$:IFA$<>"N"ANDA$<>"Y"ANDA$<>"[206]"ANDA$<>"[217]"ANDA$<>"Q"ANDA$<>"[209]"THEN2005
2010 IFA$="N"ORA$="[206]"THEN RETURN
2020 IFA$="Q"ORA$="[209]"THENGOSUB60000:IF(AB)THENCLOSE7:CLOSE15:GOTO20
2030 FOR J=0 TO 4
2040 IF D$=F$(J) THEN D$=CHR$(192+J):J=4
2050 IF D$=L$(J) THEN D$=CHR$(128+J):J=4
2060 NEXT J
2070 PRINT#15,"B-P";7;2+B
2080 PRINT#7,D$;
2090 PRINT#15,"U2"7;0;BT;BS
3000 IF EN<>00 THEN PRINT:PRINT"  DISK  ERROR"EN,EM$,ET,ES:GOTO 1000
3010 PRINT#15,"B-P";7;5+B
3020 RETURN
60000 AB=.:PRINT"  [154][193]RE YOU SURE YOU WANT TO QUIT? ([217][154]/[206][154])":POKE198,.
60010 GETA$:IFA$<>"N"ANDA$<>"[206]"ANDA$<>"Y"ANDA$<>"[217]"THEN60010
60020 IFA$="Y"ORA$="[217]"THENAB=1:GOTO60040
60030 PRINT"[145]                                      [145][145]":RETURN
60040 IF(MM)THENRETURN
60045 CLOSE15:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60050 IFER<>63THENEND
60060 LOAD"HELLO CONNECT",8
60100 POKE53280,6:POKE53281,3
60110 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60140 PRINT"[149]          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60145 PRINT"                            [146]          ";
60150 PRINT"             [196]ISK [204]OCKER    [154] [146]         ";
60155 PRINT"                            [154] [146]         ";
60160 PRINT"             [194]Y [210]UTH [200]ICKS  [154] [146]         ";
60165 PRINT"                            [154] [146]         ";
60170 PRINT"           ([195])OPYRIGHT 1987 [154] [146]         ";
60172 PRINT"                            [154] [146]         ";
60175 PRINT"           [154]                  [146]"
60180 PRINT"[149]        [208]RESS [211][208][193][195][197] TO CONTINUE."
60190 GETA$:IFA$<>" "THEN60190
60195 RETURN